home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / edit / OctamedSS1.03c.lha / Soundstudio / Rexx / omed.lha / rexx / f9.omed < prev    next >
Text File  |  1996-04-22  |  590b  |  18 lines
  1. /* F9 */
  2. if ~open("f_keys","T:f_keys.omedtemp",R) then exit
  3. f6 = readln("f_keys")
  4. f7 = readln("f_keys")
  5. f8 = readln("f_keys")
  6. f9 = readln("f_keys")
  7. call close("f_keys")
  8. rn_isranged var rn_state
  9. if ~rn_state then ed_goto line f9
  10. else do
  11.     if ~open("rn_begin","T:rn_begin.omedtemp",R) then exit
  12.     rn_begin = readln("rn_begin")
  13.     call close("rn_begin")
  14.     ed_goto line f9
  15.     ed_getcurrtrack var currtrack
  16.     if f9>=rn_begin then rn_setrange starttrack currtrack startline rn_begin endtrack currtrack endline f9
  17.     else rn_setrange starttrack currtrack startline f9 endtrack currtrack endline rn_begin
  18. end